inherited fmEditLearntask: TfmEditLearntask
  Left = 444
  Top = 195
  Width = 699
  Height = 414
  Caption = 'fmEditLearntask'
  Constraints.MinHeight = 414
  Constraints.MinWidth = 699
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 360
    Width = 691
  end
  inherited Panel1: TPanel
    Width = 691
    inherited BitBtn1: TBitBtn
      Left = 519
    end
    inherited BitBtn2: TBitBtn
      Left = 599
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 691
    Height = 315
    Align = alClient
    TabOrder = 2
    DesignSize = (
      691
      315)
    object Label3: TLabel
      Left = 12
      Top = 65
      Width = 72
      Height = 13
      Caption = #1047#1072#1076#1072#1095#1072' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 12
      Top = 17
      Width = 71
      Height = 13
      Caption = #1047#1085#1072#1090#1100' / '#1059#1084#1077#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 41
      Width = 41
      Height = 13
      Caption = #1047#1072#1076#1072#1095#1072':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 13
      Top = 89
      Width = 104
      Height = 13
      Caption = #1059#1088#1086#1074#1077#1085#1100' '#1089#1083#1086#1078#1085#1086#1089#1090#1080':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 13
      Top = 110
      Width = 71
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 322
      Top = 110
      Width = 102
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 160
      Top = 36
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'LEARNTASK'
      DataBinding.DataSource = dsLearntask
      TabOrder = 0
      Width = 513
    end
    object cxDBCheckBox1: TcxDBCheckBox
      Left = 299
      Top = 85
      Caption = #1050#1086#1085#1090#1088#1086#1083#1100
      DataBinding.DataField = 'LCONTROL'
      DataBinding.DataSource = dsLearntask
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      TabOrder = 1
      Width = 115
    end
    object cxDBCheckComboBox2: TcxDBCheckComboBox
      Left = 160
      Top = 85
      DataBinding.DataField = 'LCOMPL'
      DataBinding.DataSource = dsLearntask
      Properties.EditValueFormat = cvfStatesString
      Properties.Items = <
        item
          Description = '1'
        end
        item
          Description = '2'
        end>
      Properties.OnClickCheck = cxDBCheckComboBox2PropertiesClickCheck
      Style.TextColor = clBlack
      TabOrder = 2
      Text = #1053#1080#1095#1090#1086' '#1085#1077' '#1074#1099#1073#1088#1072#1085#1086
      Width = 129
    end
    object cxDBMemo1: TcxDBMemo
      Left = 10
      Top = 125
      Anchors = [akLeft, akTop, akBottom]
      DataBinding.DataField = 'LCOMMENT'
      DataBinding.DataSource = dsLearntask
      TabOrder = 3
      Height = 172
      Width = 309
    end
    object cxDBMemo2: TcxDBMemo
      Left = 322
      Top = 125
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'LCOMMENT_ENG'
      DataBinding.DataSource = dsLearntask
      TabOrder = 4
      Height = 172
      Width = 351
    end
    object cxDBTextEdit4: TcxDBTextEdit
      Left = 160
      Top = 60
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'LEARNTASK_ENG'
      DataBinding.DataSource = dsLearntask
      TabOrder = 5
      Width = 513
    end
    object cxDBCheckComboBox1: TcxDBCheckComboBox
      Left = 160
      Top = 13
      DataBinding.DataField = 'TYPETASK'
      DataBinding.DataSource = dsLearntask
      Properties.EditValueFormat = cvfStatesString
      Properties.Items = <
        item
          Description = #1047#1085#1072#1090#1100
        end
        item
          Description = #1059#1084#1077#1090#1100
        end>
      Properties.OnClickCheck = cxDBCheckComboBox1PropertiesClickCheck
      Style.TextColor = clBlack
      TabOrder = 6
      Text = #1053#1080#1095#1090#1086' '#1085#1077' '#1074#1099#1073#1088#1072#1085#1086
      Width = 129
    end
  end
  inherited dlgDS: TDataSource
    Left = 88
    Top = 65528
  end
  object dsLearntask: TDataSource
    DataSet = qLearntask
    Left = 224
    Top = 24
  end
  object qLearntask: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select l.*,case l.typetask'
      '    when '#39'10'#39' then '#39#1047#1053#1040#1058#1068#39
      '    when '#39'01'#39' then '#39#1059#1052#1045#1058#1068#39
      '  end as zn,'
      '  case l.lcompl'
      '    when '#39'10'#39' then '#39'1'#39
      '    when '#39'01'#39' then '#39'2'#39
      '  end as eee'
      'from learntask l'
      'where l.idlearntask=:idlearntask')
    UpdateObject = quLearntask
    GeneratorField.Field = 'SDID'
    Left = 256
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idlearntask'
        ParamType = ptUnknown
      end>
    object qLearntaskIDLEARNTASK: TIntegerField
      FieldName = 'IDLEARNTASK'
      Origin = '"LEARNTASK"."IDLEARNTASK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qLearntaskIDELEMENTP: TIntegerField
      FieldName = 'IDELEMENTP'
      Origin = '"LEARNTASK"."IDELEMENTP"'
    end
    object qLearntaskTYPETASK: TIBStringField
      FieldName = 'TYPETASK'
      Origin = '"LEARNTASK"."TYPETASK"'
      Size = 5
    end
    object qLearntaskLEARNTASK: TIBStringField
      FieldName = 'LEARNTASK'
      Origin = '"LEARNTASK"."LEARNTASK"'
      Size = 255
    end
    object qLearntaskLEARNTASK_ENG: TIBStringField
      FieldName = 'LEARNTASK_ENG'
      Origin = '"LEARNTASK"."LEARNTASK_ENG"'
      Size = 255
    end
    object qLearntaskLCOMPL: TIBStringField
      FieldName = 'LCOMPL'
      Origin = '"LEARNTASK"."LCOMPL"'
      Size = 5
    end
    object qLearntaskLCONTROL: TIntegerField
      FieldName = 'LCONTROL'
      Origin = '"LEARNTASK"."LCONTROL"'
    end
    object qLearntaskLCOMMENT: TIBStringField
      FieldName = 'LCOMMENT'
      Origin = '"LEARNTASK"."LCOMMENT"'
      Size = 255
    end
    object qLearntaskLCOMMENT_ENG: TIBStringField
      FieldName = 'LCOMMENT_ENG'
      Origin = '"LEARNTASK"."LCOMMENT_ENG"'
      Size = 255
    end
    object qLearntaskLTIMEENTER: TDateTimeField
      FieldName = 'LTIMEENTER'
      Origin = '"LEARNTASK"."LTIMEENTER"'
    end
    object qLearntaskLTIMEEDIT: TDateTimeField
      FieldName = 'LTIMEEDIT'
      Origin = '"LEARNTASK"."LTIMEEDIT"'
    end
    object qLearntaskLUSERENTER: TIBStringField
      FieldName = 'LUSERENTER'
      Origin = '"LEARNTASK"."LUSERENTER"'
      Size = 80
    end
    object qLearntaskLUSEREDIT: TIBStringField
      FieldName = 'LUSEREDIT'
      Origin = '"LEARNTASK"."LUSEREDIT"'
      Size = 80
    end
    object qLearntaskLISDELETE: TIntegerField
      FieldName = 'LISDELETE'
      Origin = '"LEARNTASK"."LISDELETE"'
    end
    object qLearntaskZN: TIBStringField
      FieldName = 'ZN'
      ProviderFlags = []
      FixedChar = True
      Size = 5
    end
    object qLearntaskEEE: TIBStringField
      FieldName = 'EEE'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
  end
  object quLearntask: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDLEARNTASK,'
      '  IDELEMENTP,'
      '  TYPETASK,'
      '  LEARNTASK,'
      '  LEARNTASK_ENG,'
      '  LCOMPL,'
      '  LCONTROL,'
      '  LCOMMENT,'
      '  LCOMMENT_ENG,'
      '  LTIMEENTER,'
      '  LTIMEEDIT,'
      '  LUSERENTER,'
      '  LUSEREDIT,'
      '  LISDELETE,'
      '  ZN,'
      '  EEE'
      'from learntask '
      'where'
      '  IDLEARNTASK = :IDLEARNTASK')
    ModifySQL.Strings = (
      'update learntask'
      'set'
      '  IDELEMENTP = :IDELEMENTP,'
      '  IDLEARNTASK = :IDLEARNTASK,'
      '  LCOMMENT = :LCOMMENT,'
      '  LCOMMENT_ENG = :LCOMMENT_ENG,'
      '  LCOMPL = :LCOMPL,'
      '  LCONTROL = :LCONTROL,'
      '  LEARNTASK = :LEARNTASK,'
      '  LEARNTASK_ENG = :LEARNTASK_ENG,'
      '  LISDELETE = :LISDELETE,'
      '  LTIMEEDIT = :LTIMEEDIT,'
      '  LTIMEENTER = :LTIMEENTER,'
      '  LUSEREDIT = :LUSEREDIT,'
      '  LUSERENTER = :LUSERENTER,'
      '  TYPETASK = :TYPETASK'
      'where'
      '  IDLEARNTASK = :OLD_IDLEARNTASK')
    InsertSQL.Strings = (
      'insert into learntask'
      
        '  (IDELEMENTP, IDLEARNTASK, LCOMMENT, LCOMMENT_ENG, LCOMPL, LCON' +
        'TROL, LEARNTASK, '
      
        '   LEARNTASK_ENG, LISDELETE, LTIMEEDIT, LTIMEENTER, LUSEREDIT, L' +
        'USERENTER, '
      '   TYPETASK)'
      'values'
      
        '  (:IDELEMENTP, :IDLEARNTASK, :LCOMMENT, :LCOMMENT_ENG, :LCOMPL,' +
        ' :LCONTROL, '
      
        '   :LEARNTASK, :LEARNTASK_ENG, :LISDELETE, :LTIMEEDIT, :LTIMEENT' +
        'ER, :LUSEREDIT, '
      '   :LUSERENTER, :TYPETASK)')
    DeleteSQL.Strings = (
      'delete from learntask'
      'where'
      '  IDLEARNTASK = :OLD_IDLEARNTASK')
    Left = 288
    Top = 24
  end
end
